object MVC_ZoomlerForm: TMVC_ZoomlerForm
  Left = 700
  Top = 344
  AutoScroll = False
  Caption = 'Zoom'
  ClientHeight = 104
  ClientWidth = 150
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 150
    Height = 104
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object paint: TPaintBox
      Left = 0
      Top = 26
      Width = 150
      Height = 78
      Align = alClient
      PopupMenu = popupWin
      OnDblClick = idCaption
      OnPaint = paintPaint
    end
    object panTools: TPanel
      Left = 0
      Top = 0
      Width = 150
      Height = 26
      Align = alTop
      TabOrder = 0
      OnDblClick = idTool
      object ToolbarButton971: TToolbarButton97
        Tag = 8
        Left = 70
        Top = 1
        Width = 23
        Height = 24
        Align = alLeft
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'x8'
        OnClick = idSetZoom
      end
      object ToolbarButton972: TToolbarButton97
        Tag = 6
        Left = 47
        Top = 1
        Width = 23
        Height = 24
        Align = alLeft
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'x6'
        OnClick = idSetZoom
      end
      object ToolbarButton973: TToolbarButton97
        Tag = 4
        Left = 24
        Top = 1
        Width = 23
        Height = 24
        Align = alLeft
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'x4'
        OnClick = idSetZoom
      end
      object ToolbarButton974: TToolbarButton97
        Tag = 2
        Left = 1
        Top = 1
        Width = 23
        Height = 24
        Align = alLeft
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'x2'
        OnClick = idSetZoom
      end
    end
  end
  object popupWin: HPopupMenu
    OnMenuItemCheck = popupWinMenuItemCheck
    Left = 65
    Top = 45
    object T1: TMenuItem
      Tag = 100
      Caption = 'Tools'
      OnClick = idTool
    end
    object C2: TMenuItem
      Tag = 101
      Caption = 'Caption'
      OnClick = idCaption
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Z1: TMenuItem
      Tag = 2
      Caption = 'x2'
      OnClick = idSetZoom
    end
    object x1: TMenuItem
      Tag = 4
      Caption = 'x4'
      OnClick = idSetZoom
    end
    object x2: TMenuItem
      Tag = 6
      Caption = 'x6'
      OnClick = idSetZoom
    end
    object x3: TMenuItem
      Tag = 8
      Caption = 'x8'
      OnClick = idSetZoom
    end
  end
  object timer: TTimer
    Interval = 300
    OnTimer = idPaint
    Left = 30
    Top = 45
  end
  object IvTranslator1: TIvTranslator
    DictionaryName = 'MainDictionary'
    Left = 100
    Top = 45
    TargetsData = (
      1
      4
      (
        '*'
        'Hint'
        0)
      (
        '*'
        'Caption'
        0)
      (
        '*'
        'Items'
        0)
      (
        'TToolbar97'
        'Caption'
        1))
  end
end
